home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / docs / mags / DC4_Guide.lha / DC4_Guide / Mag4_Guide / CHAOS.AMOS / CHAOS.amosSourceCode
Encoding:
AMOS Source Code  |  1997-08-24  |  906 b   |  62 lines
  1. ' Period Doubling Graph Program
  2. '    for Chaos Theory, Part 2  
  3. '   from DoubleClick! Issue 4  
  4.  
  5. '  Use this code as you wish...
  6.  
  7. '  Set Up Screen 
  8. Screen Open 0,640,256,16,Hires
  9. Curs Off : Flash Off : Cls 0
  10. '  Do Greyscale Palette
  11. For K=0 To 15
  12.    Colour K,K*273
  13. Next 
  14.  
  15. Gosub _SETUP
  16. Gosub _DOGRAPH
  17. End 
  18.  
  19. _SETUP:
  20. _MINX#=0
  21. _MAXX#=4
  22. _STEPX#=0.004
  23.  
  24. _MINY#=0
  25. _MAXY#=1.2
  26.  
  27. _COLOUR=0
  28. Return 
  29.  
  30. _DOGRAPH:
  31. _NIT=1/(40*_STEPX#)+125
  32. _DIT=_NIT-50
  33. For A#=_MINX# To _MAXX# Step _STEPX#
  34.    X#=0.4
  35.    For IT=1 To _NIT
  36.       NX#=A#*X#*(1-X#)
  37.       If IT>_DIT
  38.          'Plot Point
  39.          _PLOT[A#,NX#,IT]
  40.       End If 
  41.       X#=NX#
  42.    Next 
  43. Next 
  44. Return 
  45.  
  46. Procedure _PLOT[X#,Y#,C]
  47.    Shared _MINX#,_MAXX#,_MINY#,_MAXY#,_COLOUR
  48.    
  49.    SX#=X#-_MINX#
  50.    SX#=SX#/(_MAXX#-_MINX#)
  51.    SX#=SX#*600+20
  52.  
  53.    SY#=Y#-_MINY#
  54.    SY#=SY#/(_MAXY#-_MINY#)
  55.    SY#=-SY#*200+220
  56.  
  57.    If _COLOUR=0
  58.       C=15
  59.    End If 
  60.  
  61.    Plot SX#,SY#,C
  62. End Proc